#!/usr/local/bin/perl

$gifname = $ARGV[0];
open IMAGE,$gifname or die "Failed to open $gifname";
binmode(IMAGE);
read(IMAGE,$buffer,10);
($magic,$width,$height) = unpack('a6vv',$buffer);
close IMAGE;
print "$width $height\n";
